x <- 1:3
y <- rpois(10,4)
dump(c('x','y'),file='data.txt')

lis <- list(x=1:5,y=3,z=c('a','b','c'))
dput(lis,file='put.txt')
dget('put.txt')
